perm filename CYCDR5.LAP[1,LMM] blob
sn#033103 filedate 1973-04-04 generic text, type T, neo UTF8
(LAP SETND SUBR)
(PUSH P 1)
(PUSH P 2)
(HLRZ@ 1 2)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E NODEARRAY))
(POP P 1)
(PUSHJ P NSTR)
(HRRZ@ 1 0 P)
(MOVEI 2 (QUOTE 20))
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 2 (E *PLUS))
(CALL 1 (E NODEARRAY))
(POP P 1)
(PUSHJ P NSTR)
(MOVE 1 0 P)
(SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP RTLIN SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPN 3 TAG21)
(MOVEI 1 (QUOTE T))
(JRST 0 TAG15)
TAG21 (HLRZ@ 1 -13 P)
(HLRZ@ 1 1)
(MOVEM 1 -4 P)
(HLRZ@ 1 -13 P)
(HRRZ@ 1 1)
(MOVEM 1 -5 P)
(MOVE 1 -4 P)
(CALL 1 (E NODEARRAY))
(MOVEM 1 0 P)
(MOVE 1 -5 P)
(CALL 1 (E NODEARRAY))
(MOVEI 2 (QUOTE 20))
(MOVEM 1 -1 P)
(MOVE 1 -4 P)
(CALL 2 (E *PLUS))
(CALL 1 (E NODEARRAY))
(MOVEI 2 (QUOTE 20))
(MOVEM 1 -2 P)
(MOVE 1 -5 P)
(CALL 2 (E *PLUS))
(CALL 1 (E NODEARRAY))
(MOVE 4 1)
(MOVE 3 -2 P)
(MOVE 2 -1 P)
(MOVEM 1 -3 P)
(MOVE 1 0 P)
(CALL 4 (E SLOPE))
(MOVE 4 -3 P)
(MOVE 3 -2 P)
(MOVE 2 -1 P)
(MOVEM 1 -7 P)
(MOVE 1 0 P)
(CALL 4 (E YINTCP))
(MOVEM 1 -10 P)
(PUSH P (C 0 0 (QUOTE T) 0))
(PUSH P -13 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -4 P)
(JUMPE 1 TAG14)
(HLRZ@ 1 1)
(MOVE 2 1)
(MOVEM 1 -14 P)
(MOVE 1 -21 P)
(CALL 2 (E CONCT))
(MOVEM 1 -17 P)
(HLRZ@ 1 -14 P)
(HLRZ@ 1 1)
(MOVEM 1 -12 P)
(HLRZ@ 1 -14 P)
(HRRZ@ 1 1)
(MOVEM 1 -13 P)
(MOVE 1 -12 P)
(CALL 1 (E NODEARRAY))
(MOVEM 1 -3 P)
(MOVE 1 -13 P)
(CALL 1 (E NODEARRAY))
(MOVEI 2 (QUOTE 20))
(MOVEM 1 -2 P)
(MOVE 1 -12 P)
(CALL 2 (E *PLUS))
(CALL 1 (E NODEARRAY))
(MOVEI 2 (QUOTE 20))
(MOVEM 1 -1 P)
(MOVE 1 -13 P)
(CALL 2 (E *PLUS))
(CALL 1 (E NODEARRAY))
(MOVEM 1 0 P)
(MOVE 4 1)
(MOVE 3 -1 P)
(MOVE 2 -2 P)
(MOVE 1 -3 P)
(CALL 4 (E SLOPE))
(HRRZ@ 2 1)
(PUSH P 1)
(HLRZ@ 1 -16 P)
(CALL 2 (E *TIMES))
(HRRZ@ 2 -16 P)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P 1)
(HLRZ@ 1 -5 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(MOVEM 1 0 P)
(CAIN 1 (QUOTE 0))
(JRST 0 TAG2)
(MOVE 1 -24 P)
(JUMPE 1 TAG34)
(MOVEI 1 (QUOTE T))
(JRST 0 TAG30)
TAG34 (MOVE 1 -27 P)
(JUMPE 1 TAG35)
(MOVEI 1 (QUOTE T))
(JRST 0 TAG30)
TAG35 (MOVE 2 -13 P)
(MOVE 1 -14 P)
(CALL 2 (E *DIF))
(MOVE 2 -10 P)
(MOVEM 1 -2 P)
(MOVE 1 -7 P)
(CALL 2 (E *DIF))
(MOVE 2 -7 P)
(MOVEM 1 -3 P)
(MOVE 1 -6 P)
(CALL 2 (E *TIMES))
(MOVE 2 -5 P)
(PUSH P 1)
(MOVE 1 -11 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(MOVE 2 -2 P)
(CALL 2 (E *TIMES))
(MOVE 2 -14 P)
(PUSH P 1)
(MOVE 1 -16 P)
(CALL 2 (E *TIMES))
(MOVE 2 -17 P)
(PUSH P 1)
(MOVE 1 -15 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(MOVE 2 -4 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(MOVE 2 -15 P)
(PUSH P 1)
(MOVE 1 -17 P)
(CALL 2 (E *DIF))
(MOVE 2 -4 P)
(CALL 2 (E *TIMES))
(MOVE 2 -7 P)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 2 (E *DIF))
(MOVE 2 -4 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEM 1 0 P)
(MOVE 1 -13 P)
(CAME 1 -14 P)
(JRST 0 TAG37)
(HLRZ@ 1 0 P)
(HRRZ@ 2 0 P)
(PUSH P 1)
(MOVE 1 -11 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(PUSH P 1)
(HLRZ@ 1 -1 P)
(HRRZ@ 2 -1 P)
(PUSH P 1)
(MOVE 1 -11 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *TIMES))
(JRST 0 TAG36)
TAG37 (HLRZ@ 1 0 P)
(HRRZ@ 2 0 P)
(PUSH P 1)
(MOVE 1 -14 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(PUSH P 1)
(HLRZ@ 1 -1 P)
(HRRZ@ 2 -1 P)
(PUSH P 1)
(MOVE 1 -16 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(POP P 2)
(CALL 2 (E *TIMES))
TAG40
TAG36 (MOVEM 1 0 P)
(CALL 1 (E MINUSP))
(JUMPE 1 TAG42)
(TDZA 1 1)
TAG42 (MOVEI 1 (QUOTE T))
(JRST 0 TAG30)
TAG2 (MOVE 4 -5 P)
(MOVE 3 -6 P)
(MOVE 2 -7 P)
(MOVE 1 -10 P)
(CALL 4 (E YINTCP))
(HRRZ@ 2 1)
(MOVEM 1 -1 P)
(HLRZ@ 1 -23 P)
(CALL 2 (E *TIMES))
(HRRZ@ 2 -23 P)
(PUSH P 1)
(HLRZ@ 1 -2 P)
(CALL 2 (E *TIMES))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(MOVEM 1 0 P)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG45)
(HRRZ@ 1 -23 P)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG44)
(HRRZ@ 1 -1 P)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG44)
(MOVE 1 -13 P)
(CAMN 1 -10 P)
(JRST 0 TAG44)
TAG45 (MOVEI 1 (QUOTE T))
(JRST 0 TAG30)
TAG44 (MOVE 1 -13 P)
(CAME 1 -14 P)
(JRST 0 TAG50)
(MOVE 2 -16 P)
(MOVE 1 -15 P)
(CALL 2 (E MIN))
(MOVE 2 -5 P)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 2 (E MAX))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E GEQ))
(JUMPN 1 TAG51)
(MOVE 2 -5 P)
(MOVE 1 -6 P)
(CALL 2 (E MIN))
(MOVE 2 -16 P)
(PUSH P 1)
(MOVE 1 -16 P)
(CALL 2 (E MAX))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E GEQ))
(JUMPN 1 TAG51)
(TDZA 1 1)
TAG51 (MOVEI 1 (QUOTE T))
(JRST 0 TAG47)
TAG50 (MOVE 2 -14 P)
(MOVE 1 -13 P)
(CALL 2 (E MIN))
(MOVE 2 -7 P)
(PUSH P 1)
(MOVE 1 -11 P)
(CALL 2 (E MAX))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E GEQ))
(JUMPN 1 TAG55)
(MOVE 2 -7 P)
(MOVE 1 -10 P)
(CALL 2 (E MIN))
(MOVE 2 -14 P)
(PUSH P 1)
(MOVE 1 -14 P)
(CALL 2 (E MAX))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E GEQ))
(JUMPN 1 TAG55)
(TDZA 1 1)
TAG55 (MOVEI 1 (QUOTE T))
TAG53
TAG47
TAG30 (MOVEM 1 -12 P)
(SUB P (C 0 0 5 5))
(JUMPN 1 TAG27)
(MOVE 1 -5 P)
(JRST 0 TAG22)
TAG27
TAG3
TAG4
TAG5
TAG6
TAG7
TAG10
TAG11
TAG12
TAG13 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG1)
TAG14 (MOVE 1 -5 P)
TAG22 (SUB P (C 0 0 6 6))
TAG15 (SUB P (C 0 0 15 15))
(POPJ P)
NIL